Public Class Login_Factory
    Public Function GetAllLoginsForDatabase( _
                            ByVal lDatabaseID As Long) As Collection

        Dim oFactory As New DBLogin_Factory
        Return oFactory.GetAllLoginsForDatabase(lDatabaseID)
    End Function

    Public Function GetAllLoginsForDatabase( _
                        ByVal lDatabaseID As Long, _
                        ByVal sStartDate As String, _
                        ByVal sEndDate As String) As Collection

        Dim oFactory As New DBLogin_Factory
        Return oFactory.GetAllLoginsForDatabase(lDatabaseID, sStartDate, sEndDate)
    End Function

    Public Function GetLoginByName( _
                        ByVal lDatabaseID As Long, _
                        ByVal sLogin As String) As SQLAutoDocLib.Login

        Dim oFactory As New DBLogin_Factory
        Return oFactory.GetLoginByName(lDatabaseID, sLogin)
    End Function

    Public Function CountOfActiveLoginsForDatabase(ByVal lDatabaseID As Long) As Integer
        Dim oFactory As New DBLogin_Factory
        Return oFactory.CountOfActiveLoginsForDatabase(lDatabaseID)
    End Function
End Class
